home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 0 / DISK0300.ZIP / SEARCH.PRG < prev    next >
Text File  |  1985-02-20  |  376b  |  28 lines

  1. *SEARCH.PRG
  2.  
  3. CLEAR
  4. ? '       The entire name is not required, just enough to identify ì
  5. him.'
  6. ?
  7. ? '                    Capitalization must be correct!'
  8. ?
  9. ?
  10.  
  11. ACCEPT "Enter Scout's last name, first name  " to cubber
  12. FIND &CUBBER
  13. IF EOF() = .T.
  14. CLEAR
  15. @ 12,23 say "Couldn't find that Cub Scout"
  16. ?
  17. ?
  18. ?
  19. ?
  20. ?
  21. ?
  22. ?
  23. WAIT
  24. RETURN
  25. ELSE
  26. SET FORMAT TO LOOKCUB
  27. EDIT
  28.